home *** CD-ROM | disk | FTP | other *** search
/ MacFormat UK 38 / MF_UK_38_1.iso / Demos / History of the World / HISTORY / HISTORY.dxr / 00002.ls < prev    next >
Encoding:
Text File  |  1995-04-25  |  379 b   |  22 lines
  1. on startMovie
  2.   global cdepth
  3.   blank()
  4.   set cdepth to the colorDepth
  5.   set the colorDepth to 8
  6.   sound stop 1
  7.   set the volume of sound 1 to 255
  8.   set the soundLevel to 5
  9. end
  10.  
  11. on blank
  12.   global myobj
  13.   if not objectp(myobj) then
  14.     set myobj to RearWindow(mnew, "s")
  15.   end if
  16.   if value(myobj) < 0 then
  17.     set myobj to 0
  18.   else
  19.     myobj(mIndexColorToWindow, 0)
  20.   end if
  21. end
  22.